home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.02 Feb 89 / security code / CodeSizeLimits.Pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-11-29  |  1.1 KB  |  42 lines  |  [TEXT/MPS ]
  1. UNIT  CodeSizeLimits;
  2. {-------------------------------------------}
  3. (*
  4. ©1988 by Steve Seaquist. All rights reserved.
  5. Used by permission.  Use at your own risk.  
  6. No warranty is expressed or implied.  
  7.  
  8. This Macintosh virus-detecting program was 
  9. originally published and explained in the 
  10. February 1989 issue of MacTutor magazine.  
  11. Some aspects of its design are important to 
  12. security, and it uses some unusual 
  13. techniques, so please read the article.  
  14. *)
  15. {-------------------------------------------}
  16. INTERFACE
  17.  
  18. VAR
  19.   gJTSize:            INTEGER;
  20.   gEntryPoint:        LONGINT;
  21.   gSizeLimit:
  22.     ARRAY [0..3] OF   LONGINT;
  23.   gMaxCode:           INTEGER;
  24.  
  25. PROCEDURE  GetCodeSizeLimits;
  26.  
  27. {*******************************************}
  28. IMPLEMENTATION
  29. PROCEDURE  SecurityPatrol;          EXTERNAL;
  30. {-------------------------------------------}
  31. PROCEDURE  GetCodeSizeLimits;
  32. BEGIN
  33. gEntryPoint   := ORD4(@SecurityPatrol);
  34. gJTSize       := 752;
  35. gMaxCode      := 3;
  36. gSizeLimit[0] := gJTSize + 16;
  37. gSizeLimit[1] := 15000;
  38. gSizeLimit[2] := 11100;
  39. gSizeLimit[3] := 23600;
  40. END;
  41. {*******************************************}
  42. END.